#######################################################################
# Ҫ֧ļע鿴 readme.txt ĵлл
#######################################################################
#
###################  51.net װر˵ ########################

============================================================================
ʹ http://www.leoboard.com ṩ LB ̳ȫ֧lb̳Ѱװ°汾
============================================================================

ע⣺
-----
ֱӰձ̳İװ˵ 51.net ϰװһΣװ̳
ʹõĻԹݣֻ˵ã˺ 51.net ϵ
ռû CGI Ƶģװ޷УϸĶرװ
˵Ȼٴΰװһ㰴ķ 51.net ϳɹװ LB5000XP 
==============================================================================

ԭ:
-----
 51.net ĺܶ˺ڵĿռǲֱ֧̳Լĺ LBCGI.PM ģ
̳װЩ˺ŵĿռϵʱ򣬶޷ʹãˣֹֻ޸
е CGI ļʹϵͳڲ CGI.pm ȡ LBCGI.PM УȻᵼ
̳ CPU ռʺڴռӣܱ޷̳Ҫð :)
==============================================================================

---------
Զ޸:
---------
ϴ֮ǰһ add-on Ŀ¼µ LB Modify For 51.exe ļӦ
·ѡԶתͿ԰ӦĿ¼µеļת 51.net 
ĸʽԺκ LB5000 XP Ĳ hack 򣬶תֱʹá
Ϊϴͷ͸תٿֶ޸ĵĵ˵޸ļ
л jimqiu ˹ߣ
==============================================================================

---------
ֶ޸:
---------
һı༭ cgi-bin µ *.cgi ļÿļǰ沿
ĴΣûƴ룬ͱļ޸ģ
-------------------------------------------------------------------------------
BEGIN {
    $LBPATH = '.';
    my $pgm = $0;
    $pgm =~s/\\/\//g;
    $pgm =~s/^.*\/([^\/]+)$/$1/g;
    unless (-e $LBPATH.'/'.$pgm) {
        foreach ($0, $ENV{'SCRIPT_FILENAME'}, $ENV{'PATH_TRANSLATED'}) {
            s!\\!/!g; s/^(.*)\/[^\/]+$/$1/g;
            if (-e $_ . '/' .$pgm) { $LBPATH = $_; last; }
        }
    }
    unshift (@INC, "$LBPATH");
}
use LBCGI;
$LBCGI::POST_MAX=1024*150;
$LBCGI::DISABLE_UPLOADS = 1;
$LBCGI::HEADERS_ONCE = 1;
require "lb.lib.pl";
require "lbadmin.lib.pl";
require "data/progs.cgi";
require "data/boardinfo.cgi";
require "data/styles.cgi";
require "data/cityinfo.cgi";
$|++;
$query = new LBCGI;
-------------------------------------------------------------------------------
һɾǰ BEGIN {  } ֮УҲɾǰ 13 д룬


ڶԭȵ 14 еĴ use LBCGI; 滻 use CGI qw(:standard); 


ļڳ LBCGI ĵطȫ CGI 棬Ҳĵ 15 
        ʼĴ(ֻҪ滻 LBCGI Ϊ CGIĲ뱣ԭ):
---------------------------
$CGI::POST_MAX=1024*150;
$CGI::DISABLE_UPLOADS = 1;
$CGI::HEADERS_ONCE = 1;
----------------------------
ļһ㻹һУе LBCGI ҲҪ CGIʵñ༭
滻ܣ滻г LBCGI ĵط CGI ȡͿˡ
--------------------
$query = new LBCGI;
--------------------
޸ĳɣ
--------------------
$query = new CGI;
--------------------


Ĳڵһ require еǰ棬 3 д룺
--------------------------------------------------
eval {
($0 =~ m,(.*)/[^/]+,)   and unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) and unshift (@INC, "$1");
--------------------------------------------------
һ require еĺ棬 6 д룺
--------------------------------------------------------------------------------
};
if ($@) {
    print header(-charset=>gb2312); print start_html(-title=>"LB5000 ");
    print "ܹҵļ$@\nÿе require 䣬·";
    print end_html; exit;
}
--------------------------------------------------------------------------------


岽һһע⣬ adbackup.cgi ļУļǰ沿ֵĴ
        룬رҪȥɾ޸У
--------------------------
use Archive::Tar;
use Cwd;
use File::DosGlob 'glob';
use File::Copy;
--------------------------

ļеҲ뱣ԭλüɡ
------------------
$|++;
------------------


֤޸ĺĴӦ棺
--------------------------------------------------------------------------------
use CGI qw(:standard);
$CGI::POST_MAX=1024*150;
$CGI::DISABLE_UPLOADS = 1;
$CGI::HEADERS_ONCE = 1;
eval {
($0 =~ m,(.*)/[^/]+,)   and unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) and unshift (@INC, "$1");
require "lb.lib.pl";
require "lbadmin.lib.pl";
require "data/progs.cgi";
require "data/boardinfo.cgi";
require "data/styles.cgi";
require "data/cityinfo.cgi";
};
if ($@) {
    print header(-charset=>gb2312); print start_html(-title=>"LB5000 ");
    print "ܹҵļ$@\nÿе require 䣬·";
    print end_html; exit;
}
$|++;
$query = new CGI;
--------------------------------------------------------------------------------

 Ϊ 51.net ϴͷ͸沽裨
        ϴͷ͸Ļǧ˲Ӵ
 post.cgi  editpost.cgi ļ
----------------------------------------------------------------
my $up_filename =$query->uploadInfo($addme);
my ($up_name,$up_ext) = split(/\./,$up_filename);
----------------------------------------------------------------
ɾУȡ
--------------------------------------------------
$addme=~ s/\n//g;
my $up_filename =$addme;
@up_name = split(/\./,$up_filename);
$up_ext = $up_name[-1];
--------------------------------------------------

ʼַһ
----------------------------------------------------------------
while ($buffer=$query->readUploadFile
----------------------------------------------------------------
ɾһУȡ
--------------------------------------------------
while ($bytesread=read($addme,$buffer,1024)) {
--------------------------------------------------

ٴʼַһ
----------------------------------------------------------------
$filesize=$filesize+4;
----------------------------------------------------------------
ɾһУȡ
--------------------------------------------------
$filesize=$filesize+1;
--------------------------------------------------


Ŵ profile.cgi  register.cgi ļ
----------------------------------------------------------------
my $filename =$query->uploadInfo($addme);
----------------------------------------------------------------
ɾһУȡ
--------------------------------------------------
$addme=~ s/\n//g;
my $up_filename =$addme;
my @up_name = split(/\./,$up_filename);
$filename = $up_name[-1];
$filename = lc($filename);
--------------------------------------------------

Ȼʼַһ
----------------------------------------------------------------
while ($buffer=$query->readUploadFile
----------------------------------------------------------------
ɾһУȡ
--------------------------------------------------
while ($bytesread=read($addme,$buffer,1024)) {
--------------------------------------------------

ٴʼַһ
----------------------------------------------------------------
$filesize=$filesize+4;
----------------------------------------------------------------
ɾһУȡ
--------------------------------------------------
$filesize=$filesize+1;
--------------------------------------------------

裬ϸһ顣 51.net רð汾ˡ


޸ϺԼӦ˵ļаװ
LB5000  IB2000 װ˵.txt
״ΰװ˵.txt
LB5000 XP װ˵.txt

Ԥף㰲װʹóɹ

==============================================================================
رע:
---------
1.  51.net ռԣ޷֤̳йܶʹã
   ⣬99% Ϊ 51.net ռ CGI Ƶµģ

2. Ժע⣬רŸ 51.net  hack ֱʹãҪ
   ޸ģмǣмǣ
==============================================================================


-=-=-=-=-=-=-=-=-=-=-=
CGIer.com CEO ɽӥ()
=-=-=-=-=-=-=-=-=-=-=-
